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MODULE INIFC2 ( seaunell tis taicaie 
IDENT z Be 880% : 


USwrn— 


BEGIN 


' 
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'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'@ DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
a 
® 
® 
* 
® 
® 
e 
® 
ie TRANSFERRED. . 
we 
* 
x 
a 
® 
* 
* 
te 
cs 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* ORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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00 
003 '++ 
003 ! 
ORs } FACILITY: F11ACP Structure Level 2 
003 ABSTRACT: 
003 i These routines create and initialize a file control block 
003 } from the given file header. 
904 ENVIRONMENT : 
004 : STARLET operating system, including privileged system services 
004 : and internal exec routines. These routines must be called in 
r ‘ kernel mode. 
04 ! 
04 len 
8 04 ‘ 
49 04 ' 
3 Be : AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 16:48 
5 3 MODIFIED BY: 
az 5 i v03-006 ACG0440 Andrew F Goldstein 23-Jul-1984 13:32 
55 3 : Add ref count and classification valid flag to ORB in the FCB 
3$ be i v03-005 CDS0003 Christian D. Saether 1-May-1984 


& 
INI, iB-Sep-1984 01:15:55 VANTT BLise-32 vs-0-742, Page | 


; $3 035 ! } Set up FCBSL_LOCKBASIS. 

: 6 60 1: v03-004 LMP0221 L. Mark Pilant, 27-Apr-1984 11:17 
; 2 o : } Add support for an ORB within an FCB. 

: 8 we 1 v03-003 ACG0408 Andrew C. Goldstein, 22-Mar-1984 21:59 
: rf: bee : } Make APPLY_RYN and DEFAULT _RVN macros 

; 08 D086 ii v03-002 CDS0002 Christian D. Saether 18-Jan-1984 

; a4 $e ! Modify interface to APPLY_RVN. 

: 4 09 § 1 i v03-001 egg 44 Christian fF Saether 88-Dec-1983 

; £0 TA : } Use MOUDEF instead ot FCPDEF. 

ty . 0072 1! v02=003 ACG0241 Andrew C. Goldstein, | 11-Dec-1981 22:53 
; £ 0075 1! Make updating of FCB common code, add handling 

3 a Bate ’ of directory bit 

, = 0076 1: v02-002 ACG0167 Andrew C. Goldstein, 16-Apr-1980 19:26 
. 0077 1! Previous revision history moved to F11B.REV 

; 0078 1 !ee 

; #79 079 1 

; 80 080 1 

3 8i 0081 1 LIBRARY SE SSLIOAARY #1 18,52"; 

3 8 0082 1 REQUIRE ‘SRC$:MOUDEF .B32'; 

.> = 0614 1 

; 84 0615 1 

; 85 0616 1 FORWARD ROUTINE 

; 86 0617 1 INIT_FCB2 : NOVALUE, ! initialize FCB 

3 87 0618 1 FILL_FCB : NOVALUE; ! fill in basic FCB fields 
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; 89 9618 } GLOBAL ROUTINE INIT_FCB2 (FCB, HEADER) : NOVALUE = : 
: 4 ° 1 ! hed : 
; $8 é § |_| FUNCTIONAL DESCRIPTION: : 
> #95 625 1 This routine initializes the given FCB according to the given ‘ 
; 6 1: file header. : 
; 9 607 1 | 
; 98 628 1 | CALLING SEQUENCE: 3 
; 196 be 4 : INIT_FCB (ARG1, ARG2) : 
; 101 O68] | | INPUT PARAMETERS: 
: 196 be ¢ 1! ARG1: FCB address ; 
3 ts be ? : } ARG2: header address ° 
; 105 0635 1 | IMPLICIT INPUTS: 
$ 18 88 $ ! HEADER_LBN contains LBN of header block : 
: 108 $68 1 | OUTPUT PARAMETERS: 
ig os th : 
; 111 0641 1 ! IMPLICIT OUTPUTS: 
aaa ii 2 
: 114 0644 1 | ROUTINE VALUE: 
ibee) Mi : 
: 117 0647 1! SIDE EFFECTS: 
; 18 0648 1! FCB initialized ° 
: 119 0649 1 | : 
; 120 0650 1 i-- 
; 153 We , BEGIN 3 
Pie ie Be By ! 
> 125 0655 FCB : REF BBLOCK, ! FCB argument 3 
; 1$6 3028 HEADER : REF BBLOCK; ! file header arg : 
; 138 658 2 LINKAGE ; 
3; ote? 659 L_MAP_POINTER = JSB : ; 
; 180 9660 GLOBAL (COUNT = 6, LBN = 7, MAP_POINTER = 8); ; 
: 1 : 66¢ 2 GLOBAL REGISTER Z 
5 YF 66 COUNT = g. ! retrieval pointer count : 
3; 664 LBN = 7, ' retrieval pointer LBN 3 
3 : 5 23? MAP_POINTER = 8; ! pointer to scan map area ; 
3; 137 667 2 EXTERNAL ROUTINE : 
: 138 3 GET_MAP_POINTER : L_MAP_POINTER; ! get value of file map pointer : 
: 140 0 ; 
3 14g ore , Scan the map area. Count up the file size from the retrieval pointers. : 
: 14 67 ; 
3 (146 674 MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETI*2; : 
3 «6145 675 FCBCFCBSL_FILESIZE) = 0; 3 
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vo4e560 1fse0-19¢e P:08:37  DEEKSUMGMASTERSCMOUNT-SRcIINIFC2.83209°° (25 
UNTIL .MAP_POINTER GEQA .HEADER + (.HEADERCFH2$B_MPOFFSET] + .HEADERCFH2$B_MAP_INUSE]) * 2 
POINTER (); 
FeatrcesL. FILESIZE) = -FCBCFCBSL_FILESIZE] + .COUNT; 
Now set up the rest of the fields. 


FILL_FCB (.FCB, .HEADER); 
END; ! end of routine INIT_FCB 
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-TITLE INIFC2 
-IDENT \V04-000\ 


.EXTRN GET_MAP_POINTER 
.PSECT $CODES,NOWRT,2 


OFFC 00000 .ENTRY INIT F CB2, Save R2,R3,R4,R5,R6,R7,RB,R9,- 3 0619 
52 04 AC 7D 00002 Ova = FCB, R2 + 0675 
54 01 _A3 9A 00006 MOVZBL 1(R3), R4 > 0674 
58 6344 3E OO00A OVAW (R3)CR4J, MAP_POINTER : 
38 Ag D4 0000E CLRL 56(R + 0675 
50 3A = A3-—« 9A (00011 18 MOVZBL 58(R3), RO + 0677 
50 54 £0 00015 ADDL2 4, RO’ ; 
50 6340 E 00018 MOVAW (R$)CROJ, RO ; 
50 58 D1 O000IC CMPL  MAP_POINTER, RO ; 
09 1 0001F BGEQU 2$ : 
00006 30 00021 BSBW  GET_MAP_POINTER + 0680 
38 A 56 CO 00024 ADDL2 COURT, 56(R2) > 0681 
E7 11 00028 BRB : 0677 
C BB 0002A 2$ PUSHR #*M<R2,R3> : 0687 
0000v CF 02 FB 000¢¢ CALLS #2, FILL_FCB : 
04 00031 RET + 0689 


; Routine Size: 50 bytes, Routine Base: $CODE$ + 0000 
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14-Sep-1984 
GLOBAL ROUTINE FILL_FCB (FCB, HEADER) : NOVALUE = 
i++ 


; FUNCTIONAL DESCRIPTION: 


i This routine updates the file attributes of the specified FCB, 
: if any, with the file attributes of the given header. The file size 
is preserved. 
i] 
' CALLING SEQUENCE: 
FILL_FCB (ARG, ARG2) 
i INPUT PARAMETERS: 
! ARG1: address of FCB 
ARG2: address of file header 
i IMPLICIT INPUTS: 
: NONE 
i QUTPUT PARAMETERS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
NONE 
i SIDE EFFECTS: 
} FCB is updated if it exists 
_ 
BEGIN 
BUILTIN 
REMQUE, 
ROT; 
LOCAL 
FCS ORB : REF BBLOCK, ' Address of the ORB within the FCB 
DUMAY ; ! dummy target for REMQUE 
MAP 
FCB : REF BBLOCK, ! FCB arg 
HEADER : REF BBLOCK; ! file header arg 
LINKAGE 


L_MAP_POINTER = JSB : 
GLOBAL (COUNT = 6, LBN = 7, MAP_POINTER = 8); 


GLOBAL REGISTER 
COUNT 


= g. ' retrieval pointer count 
LBN e fe ' retrieval pointer LBN 
MAP_POINTER = 8; ! pointer to scan map area 
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EXTERNAL 


CURRENT_RVN, urrent volume 
CURRENT _VCB 
HEADER_CBN; ! ile header 
EXTERNAL 
EXESGL_DYNAMIC_FLAGS : BITVECTOR ADDRESSING MODE (ABSOLUTE); 
! Dynamic SYSGEN flags 


EXTERNAL LITERAL 
EXESV_CLASS_PROT; ! Set if doing non-discretionary checks 


EXTERNAL ROUTINE 
GET_MAP_POINTER : L_MAP_POINTER; ! get value of file map pointer 


! Note the address of the ORB within the FCB. 
FCB_ORB = FCBCFCBSR_ORB); 
: Get the known constants and the simple stuff from the file header 

(i.e., header LBN, file ID, starting VBN, file owner and file protection). 


»HEADER OL 


FCBSL 
tae 


hnnnn 

. 

=x 
m 
= 
So 
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BN; 

Hebe 
HoSW_F 
HoSW_F 
H2$W—S 


TP ee be ee 


- HEADERLF 


FILL (0, ORBSC_LENGTH 
BSL_OWNER) 

ORBLORB$V~PROT_ 16) 

ORBEORBSU PROTI 


-FCB_ORB); 
sHEADERCFH2SL_FILEOWNERI; 
.HEADERCFH2$W_F ILEPROT); 


F 
F 
F 
F 
F 
C 
F 
F 
i 
F NOT .HEADERCFH2$B_ACC_MODE); 


B = 
B-ORBCORBS$L_MODE-PROTH] = -1 


SASSUME (FH2$S_CLASS_PROT 
SASSUME (FH2$S~CLASS_PROT 


E 
E 
IF .EXESGL_ DYNAMIC _FLAGSCEX 
AND -HEADERCFH2SB_IDOFFSET J 


ORB$S_MIN_CLASS); 
ORBS$S~MAX-CLASS); 
C 
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LASS_PROT, HEADERCFH2SR_ 
ASS payee Meaeee FH2$R_ 


CLAS FCB_ORBCORBSR_MIN 
L C C x 
ASS_PROT] 


S_PROTI, _CLASS)); 
LASS-PROT], FCB~ORBLORBS$R—MAX~CLASSJ): 


FH2$S_C 
FHe$S_C 
RBSV_CL 


CHSMOVE ( 
F CB_ORBCO 
END; 
BCF CBSW_VERSIONS) = ,BBLOCK CHEADERCFH2$W_RECATTR], FATSW_VERSIONS); 
(FCBCFCBSW_FID_ »CURRENT_RVN); 
CBCFCB$L_LOCKBASISJ)<0,16> = .FCB FCBSW_FIO_NUM 3 
CBCFCBSL_LOCKBASIS]) 16,8> = .FCB FCB$B_FID_NMX); 
CBCFCBSL_LOCKBASISJ)<24,8> = .FCBLFCBSB_FID_RVN 
IF .HEADERCFH2$V_SPOOL] THEN FCBCFCBS$V_SPOOL) = 1; 
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do 9 
INIFC 16-Sep-1984 01:15:35 | VAX-11 Bliss-32 V4.0-742 
marae 13288-1382 431233? DISK KSVMER TER: CMOUNT. SRCJINIFC2. B32"4 
; 275 0806 
: 27 805 FCBLF CBS EFBLK = ROT (.BBLOCKCHEADERCFH2$W_RECATTR], FATSL_EFBLKI, 16); 
; 8 B06 IF cBtre CSL EFBLK] NEQ 0 icc 2 
: 278 80 AND “BBL CKCHEADERCFH2SW -RECATIRI. FATSW FFBYTE EQL 0 
§ 0 et43 THEN FCBCFCBSL_EFBLK] = TFCBCFCBSL_EFBLKI - 
: 281 10 2 IF .FCBCFCBSL_EFBLKI GTR .FCBCFCBSL FILESIZE 
3 8¢ 081} THEN FCBCFCBSC_EFBLK] = .FCBCFCBSL PILES Zed; 
> «284 OB13 ! If the Stree tory bit is being turned off, credit one to the volume's 
; 285 0814 ' directory LRU. 
; He] g8i2 i 
; 28 16 
: 288 0817 IF .FCBCFCBSV DIR } 
3; 289 0818 AND NOT .HEADERCFH2$V_DIRECTORY) 
: 290 0819 2 THEN 
: 291 0820 BEGIN 
; 292 0821 F CBCFCB$V b1R] 
: 29 08 ; ern vts veasa BRU Lin) .CURRENT_VCBCVCB$B_LRU_LIM] + 1; 
> 294 OB¢ 3 FCBCFCBSW 
3 295 0824 3 Thei REMQUE (7 FEB, pontiy) 
; 296 OB¢5 END; 
; $98 8 ; ‘oN th Get the starting LBN if the file i i 
: : Ow scan e@ map area. be e startin e e 1S contiguous. 
: 599 oB58 5 | . . 
; 300 0829 
: 301 0830 2 MAP_POINTER = .HEADER + .HEADERLFH2$B_MPOFFSET]*2; 
3; 30 0831 T"MAP_POINTER (); 
; 30 0832 FCBCFCBSL_STLBN] = 
3 304 083 IF HEAD REFHOSV_CONTIGI 
; 305 0834 § THEN FCB FCBSL STLON] = .LBN; 
; 306 0835 
; 307 0836 1 END; ! end of routine FILL_FCB 
EXTRN CURRENT_RVN, CURRENT_V 
EXTRN HEADER_CBN EXE SGL NDYNARIC _FLAGS 
EXTRN EXESV_ Class. 43 
OFFC 00000 -ENTRY FILL. FCB, Save R2,R3.R4,R5,.R6,R7,R8B,R9,R10,-; 
57 4 aC 7D 00002 MOVO FCB, R7 
5 8 A? 3 9006 MOVAB 88(R7), FCB_ORB 
34 «A 00006 CF D OA MOVL HEADER_LBN 2(R7) 
24 «OA? 08 A b0 19 MOVL  8(R8),~36(R7) 
59 A ‘ 1 MOVAB 4gcR7s, R9 
69 O¢ AB BO 00019 MOVW 12(RB), (RO) 
2a sO? 4 a8 BO 0001 MOVW 4(RB), 42(R7) 
0058 «BF 00 6E 0 C i mMOVCS #0, (gp) nO. #88, (FCB_ORB) 
6% 3c .hC«A p O02A MOVL 60(R8) (FCB ORB) 
08 Ab 01 BISB2 #1, 11¢FCB_0 
18 AG 40 A8 MOVW 64 (RB) Perce. ORB) 
Ab 04 1SB2 #4, 11¢FCB Rey 
10 A6 38 «6 AB OA 6 8 MOVZBL 59(R8), 16th on 
1 AG 1 A6 D2 0004 COML 16(FCB_ORB) 8¢F eB_ORB) 
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Routine Base: S$CODE$ + 0032 


255 bytes, 


vw 
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F 9 
INIFC 16-Se 
14-Se 


$1984 01:15:35 VAX-11 Bliss-32 V4.0-742 9 
v04-0 - ats vi 5:13:32 DISKSVMSMASTER: CMOUNT. SACIINIFC2.B32, 1? * (3) 
310 0839 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 305 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
Saeemeen Syabol@ occeseee Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 58 0 1000 00:02.0 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INIFC2/0BJ=OBJ$: INIFC2 MSRC$: INIFC2/UPDATE=(ENHS: INIFC2) 


Size: 305 sede + 0 data bytes 
Run Time: 90: 16.2 


penety Used: 166 p pages 
a 


COMMAND QUALIFIERS 
Compilation Complete 


AH-BT13A-SE 
VAX/VMS V4.0 


L EQUIPMENT 
ENTIAL .AND 


24 : ’ CORPORATION 


DI 
CO PROPRIETARY 


ITA 
FID 


